home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / GEDitCOM / GEDitCOM.rsrc / GeDF_27530_NCHI Printing < prev    next >
Encoding:
Text File  |  2000-12-09  |  527 b   |  41 lines
  1. get *rec
  2. if FAM
  3.   ! static text with level and tab
  4.   hskip 15
  5.   style label
  6.   text *name
  7.   text :
  8.   tabwidth 2
  9.  
  10.   ! edit field with value
  11.   hskip 5
  12.   style editvalue w=-1
  13.   newline
  14.  
  15. else
  16.   ! New line and enter label
  17.   hrule 2
  18.   newline 2
  19.   style label
  20.   text *name
  21.   text :
  22.   width -1
  23.   newline
  24.   if more
  25.     tab 1
  26.   endif
  27.  
  28.   ! show date and place
  29.   set rtjs 1
  30.   showall DATE
  31.   showall AGE
  32.   showall PLAC
  33.   showall ADDR
  34.   showall TYPE
  35.   showall AGNC
  36.   showall CAUS
  37.   showall NOTE *name
  38.   showall SOUR *name
  39.   set rtjs 0
  40. endif